(dabbrev--goto-start-of-abbrev): Put a limit on field-beginning search.

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 92191a926c3dcd196aec95669e03095651fadfd6..55b080ee0b15697916f9aec19a25ee5c6b798835 100644 (file)
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -599,7 +599,9 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
        (progn
          (forward-char -1)
          (while (and (looking-at dabbrev--abbrev-char-regexp)
-                     (not (= (point) (field-beginning (point)))))
+                     (not (bobp))
+                     (not (= (point) (field-beginning (point) nil
+                                                      (1- (point))))))
            (forward-char -1))
          (or (looking-at dabbrev--abbrev-char-regexp)
              (forward-char 1))))